COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.device tty
C00007 ENDMK
C⊗;
.device tty;
.  PAGE FRAME 60 HIGH 45 WIDE;
.  AREA TEXT LINES 4 TO 52;
.
.MACRO SEC(where) ⊂ ⊃;
.MACRO TIT(HEADER,SUBHEAD);  ⊂ ⊃
.
.AT "⊗" nam "/" addr "/" foo "≡" ⊂
nam
addr
foo
.skip
.name←scan("nam","(");
.address←"addr";
.town←scan(address,",","","is");
.if length(address) then town←scan(address,",(") else town←scan(town,"(");
.send index	⊂ page!} \#{name} - {town}#
.  ⊃;
.⊃
.
.place text
.crbreak;
.preface 0; nojust
.TURN ON "α∂{"; turn off "-";
.<< begin "yum" require "yum" source_file; end "yum"; >>
. begin "yum" require "yummy[pub,pat]" source_file; end "yum";
.
.portion index;	place text;
.crbreak;
.preface 0; nojust
.select 1;	indent 0,8;	tabs 5; turn on "\#"
.receive "##";
.